home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / Z-Misc Series / (k)zl.d64 / prc.unsort'array < prev    next >
Text File  |  2007-03-01  |  772b  |  24 lines
  1. 0760 ╨╥╧├ UNSORT'ARRAY(ITEMS,MAX'CHAR,╥┼╞ STRING$(),SEED) ├╠╧╙┼─
  2. 0770   // SEED -1 FOR TRUE RANDOM UNSORT
  3. 0780   // POSITIVE SEED FOR PSEUDO RANDOM I.E. SAME ORDER FOR SPECIFIC SEED
  4. 0790   ─╔═ MIX$(ITEMS) ╧╞ MAX'CHAR+1
  5. 0800   ╥┴╬─╧═╔┌┼ SEED
  6. 0810   ╔╞ SEED=-1 ╘╚┼╬ ╥┴╬─╧═╔┌┼
  7. 0820   ╞╧╥ SETUP:=1 ╘╧ ITEMS ─╧
  8. 0830     STRING$(SETUP):+╙╨├$(MAX'CHAR)
  9. 0840     MIX$(SETUP):=STRING$(SETUP)+"*" //FLAG
  10. 0850   ┼╬─╞╧╥ SETUP
  11. 0860   
  12. 0870   COUNT:=0
  13. 0880   ╥┼╨┼┴╘ 
  14. 0890     COUNT:+1
  15. 0900     R:=╥╬─(1,ITEMS)
  16. 0910     ╔╞ MIX$(R)(MAX'CHAR+1)="*" ╘╚┼╬ //1ST TIME
  17. 0920       MIX$(R):=STRING$(COUNT)+╙╨├$(1) //REMOVE FLAG
  18. 0930     ┼╠╙┼ 
  19. 0940       COUNT:-1 //MIX$(R) REPEAT
  20. 0950     ┼╬─╔╞ 
  21. 0960   ╒╬╘╔╠ COUNT=ITEMS
  22. 0970   ╞╧╥ K:=1 ╘╧ ITEMS ─╧ STRING$(K):=MIX$(K)
  23. 0980 ┼╬─╨╥╧├ UNSORT'ARRAY
  24.